home *** CD-ROM | disk | FTP | other *** search
- on startMovie
- global gOnIBM
- identifyPlatform()
- if gOnIBM then
- set gSoundPath to the pathName & "m09h01\"
- else
- set gSoundPath to the pathName & "m09h01:"
- end if
- formatTextField()
- end
-
- on formatTextField
- global gOnIBM
- if gOnIBM then
- set the textFont of field "final exam text" to "Arial"
- set the textSize of field "final exam text" to 12
- else
- set the textFont of field "final exam text" to "Geneva"
- set the textSize of field "final exam text" to 12
- end if
- end
-